home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 June
/
EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso
/
earcd
/
comm1
/
s342q12.lha
/
file_comments.c
< prev
next >
Wrap
C/C++ Source or Header
|
1996-03-04
|
9KB
|
307 lines
/************************************************************************/
/* File Comments Processing */
/************************************************************************/
#define SYSTEM_DEPENDENT
#define TIMER_FUNCTIONS_NEEDED
#include "ctdl.h"
#include "dos.h"
#include "time.h"
#include "string.h"
#include "stdarg.h"
/************************************************************************/
/* Globals -- there shouldn't be anything here but statics and */
/* externs. */
/************************************************************************/
static char *Phrase;
extern char *READ_TEXT;
extern char *WRITE_TEXT;
static FILE *FileTag; /* For the file tags */
#define ONE_DAY 86400L
#define D_OFFSET 252460800L
int Jsystem(char *);
void Do_Stack_Check(void);
extern MessageBuffer msgBuf;
extern CONFIG cfg; /* Lots an lots of variables */
void *ChPhrase(DirEntry *e, DirEntry *d);
static char File_Extension(char *name, char *extension);
static void Change_Extension(char *name, char *extension);
static char *Find_Extension(char *name);
static char filenamebuffer[100];
#define ONE_DAY 86400L
#define D_OFFSET 252460800L
static char *Find_Extension(char *name)
{
char *ptr, *lptr;
lptr = ptr = name; /* point to last character */
while( ( lptr = strchr(ptr,'.') ) != NULL )
{
ptr = lptr;
if( *ptr == '.' ) ptr++;
};
return ptr;
}
static void Change_Extension(char *name, char *extension)
{
char *ptr;
int lfn, lex;
/**
Find the Extension of the name
**/
lfn = strlen(name);
ptr = Find_Extension(name);
lex = strlen(ptr);
if( lfn > lex )lfn -= lex; /* length of filename without extention */
memset(filenamebuffer,'\0',100);
strncpy(filenamebuffer,name,lfn);
strcat(filenamebuffer,extension);
return;
}
static char File_Extension(char *name, char *extension)
{
char *ptr;
int lnm, lext;
/**
1) check to see that we have a valid pointer and that
the string is long enough to match
**/
if( name == NULL ) return (char)TRUE;
lnm = strlen(name);
lext= strlen(extension);
if( lnm < lext ) return (char)TRUE;
/**
Find the Extension of the name
**/
ptr = Find_Extension(name);
lnm = strlen(ptr);
if( lnm != lext ) return (char)FALSE;
if( stricmp(ptr, extension) == 0 ) return (char)TRUE;
return (char)FALSE;
}
/************************************************************************/
/* CitGetFileList() Get a list of files from the current "area" */
/************************************************************************/
void CitGetFileList(char *mask, SListBase *list, long before, long after,
char *phrase)
{
struct FileInfoBlock *FlBlock;
extern char *monthTab[13];
char *w, *work, *sp, again, buf[10];
DirEntry *fp;
int done;
long time;
struct tm *v;
Do_Stack_Check();
w = work = strdup(mask);
FlBlock = malloc(sizeof *FlBlock);
do
{
again = (sp = strchr(work, ' ')) != NULL; /* space is separator */
if (again)
{
*sp = 0;
}
/* Do all scanning for illegal requests here */
if (!ValidDirFileName(work)) continue;
for (done = dfind(FlBlock, work, 0); !done; done = dnext(FlBlock))
{
if( File_Extension(FlBlock->fib_FileName, "readme") )
continue; /* skip all readme files */
/* format date to our standards */
/* DosToNormal(buf, FlBlock->ff_fdate); */
time = D_OFFSET + (long)(ONE_DAY * FlBlock->fib_Date.ds_Days) +
(long)(FlBlock->fib_Date.ds_Minute * 60) +
(long)(FlBlock->fib_Date.ds_Tick / 50);
v = localtime(&time);
sPrintf(buf, "%d%s%02d", v->tm_year, monthTab[v->tm_mon+1],
v->tm_mday);
/* now read it so we can handle date specs */
ReadDate(buf, &time);
/* add to list iff dates inactive or we meet the specs */
if ((before != -1l && time > before) || (after != -1l && time < after))
continue;
fp = (DirEntry *) GetDynamic(sizeof *fp);
fp->unambig = strdup(FlBlock->fib_FileName);
strCpy(fp->FileDate, buf);
fp->FileSize = FlBlock->fib_Size;
AddData(list, fp, NULL, TRUE);
}
if (again) work = sp+1;
}
while (again);
free(w);
free(FlBlock);
if (strLen(phrase) != 0)
{
Phrase = phrase;
StFileComSearch(); /* so's we can do phrase searches */
list->CheckIt = ChPhrase; /* COVER YOUR EYES I'M CHEATING! */
KillData(list, list);
list->CheckIt = DirCheck; /* COVER YOUR EYES I'M CHEATING! */
EndFileComment();
}
}
/************************************************************************/
/* ChPhrase() does something to do with finding phrases in comments*/
/************************************************************************/
void *ChPhrase(DirEntry *e, DirEntry *d)
{
Do_Stack_Check();
if (FindFileComment(e->unambig))
{
if (matchString(msgBuf.mbtext, Phrase, lbyte(msgBuf.mbtext)) == NULL) return d;
}
else return d;
return NULL;
}
/************************************************************************/
/* CopyFile() copies a file */
/************************************************************************/
char CopyFile(char *oldname, aRoom *roomData)
{
int len;
#ifdef NO_STAT
BPTR F_Lock;
struct FileInfoBlock *FIBlk;
char F_Ok;
LONG F_Status;
#else
struct stat buf;
#endif
char *temp;
char buffer[256];
char F_Node[32],F_Ext[32];
Do_Stack_Check();
if ((temp = FindDirName(roomData->rbArea)) == NULL)
{
Output_Citadel_Message("ERRDRM",NULL,NULL,NULL);
return FALSE;
}
#ifdef NO_STAT
F_Ok = FALSE;
F_Lock = Lock(oldname,-2);
if (F_Lock != NULL)
{
FIBlk=(struct FileInfoBlock *)malloc(sizeof(struct FileInfoBlock));
if (FIBlk != NULL)
{
F_Status = Examine(F_Lock, FIBlk);
if (F_Status != 0)
{
if (FIBlk->fib_DirEntryType < 0)
F_Ok = TRUE;
}
free(FIBlk);
}
UnLock(F_Lock);
}
if (!F_Ok)
{
Output_Citadel_Message("ISNCPY",(long)oldname,NULL,NULL);
return FALSE;
}
#else
if (stat(oldname, &buf) != 0 || !(buf.st_mode & S_IFREG))
{
Output_Citadel_Message("ISNCPY",(long) oldname,NULL,NULL);
return FALSE;
}
#endif
sPrintf(buffer, "copy >NIL: %s %s", oldname, temp);
Jsystem(buffer); /* move file */
Change_Extension(oldname,"readme");
if( access(filenamebuffer,R_OK) == 0 )
{
sPrintf(buffer, "copy >NIL: %s %s", filenamebuffer, temp);
Jsystem(buffer); /* move readme */
ingestFile(filenamebuffer,&msgBuf);
};
strsfn(oldname,NULL,NULL,F_Node,F_Ext);
temp = FindDirName(roomData->rbArea);
sPrintf(oldname, "%s%c%s", F_Node,(F_Ext[0] != 0) ? '.' : '\0', F_Ext);
len = strlen(temp);
if ( temp[len-1] == ':' || temp[len-1] == '/' )
{
sPrintf(buffer, "%s%s",temp,oldname);
}
else sPrintf(buffer, "%s/%s",temp,oldname);
return ((char)(access(buffer, 0) == 0));
}
/************************************************************************/
/* StFileComSearch() Start File Comment search: see SYSDEP.DOC. */
/************************************************************************/
int StFileComSearch()
{
return TRUE; /* a stub, nothing to do */
}
/************************************************************************/
/* FindFileComment() find file comment for file: see SYSDEP.DOC. */
/************************************************************************/
int FindFileComment(char *fileName)
{
char Found_Comment;
char *buffer;
Do_Stack_Check();
buffer = msgBuf.mbtext;
*buffer = '\0';
Change_Extension(fileName,"readme");
Found_Comment = ingestFile(filenamebuffer,&msgBuf);
doCR(); /* formatting without blank lines. */
return ( Found_Comment );
}
/************************************************************************/
/* EndFileComment() end session of reading file comments. */
/************************************************************************/
void EndFileComment()
{
return; /* just a stub */
}
/************************************************************************/
/* updFiletag() updates a file tag */
/************************************************************************/
void updFiletag(char *fileName, char *desc)
{
Do_Stack_Check();
Change_Extension(fileName, "readme");
if ((FileTag = safeopen(filenamebuffer, WRITE_TEXT)) == NULL)
{
Output_Citadel_Message("UNKWNP",(long)filenamebuffer,NULL,NULL);
}
else
{
fprintf(FileTag, "%s\n", desc);
fclose( FileTag);
}
return;
}